/***********************************************
Figure E2: BES Main Results by High/Low LSOA Median Home Prices
***********************************************/

qui reg leave z_income_dis z_f_wealth c.z_p_wealth $cfe if low==0,r
qui margins, atmeans at(z_p_wealth = (-1(1)2)) post
est store m1_property

qui reg leave z_income_dis z_f_wealth c.z_p_wealth $cfe if low==1,r
qui margins, atmeans at(z_p_wealth = (-1(1)2)) post
est store m2_property


coefplot (m1_property, label("High LSOA Home Price")) /// 
 (m2_property , label("Low LSOA Home Price") lpattern(solid)),     legend(off) ///
 at recast(line) lwidth(*2) ciopts(recast(rline) lpattern(dash))  xtitle("Property Wealth") ytitle("Pr(Leave)") 
graph export "$output/fige2.pdf", replace
